home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / programm.ing / m2gem106.lzh / CRYSTAL1.06 / SRC / CRYSTAL / SCRPMGR.DEF < prev    next >
Encoding:
Modula Definition  |  1993-05-21  |  2.3 KB  |  69 lines
  1. DEFINITION MODULE ScrpMgr;
  2.  
  3. (*
  4. AES Scrap Manager.
  5.  
  6. UK __DATE__ __TIME__
  7. *)
  8.  
  9. (*DEF_SWITCHES*)
  10.  
  11. (* additional extensions due to June-July 1991 ATARI.RSC newsletter *)
  12.  
  13. #if revers
  14. TYPE Scraps = (ScUSR,
  15.                Sc14,
  16.                ScCVG,
  17.                ScEPS,
  18.                ScIFF,
  19.                ScTIF,
  20.                ScWP,
  21.                Sc1WP,
  22.                ScRTF,
  23.                ScASC,
  24.                ScDIF,
  25.                ScDCA,
  26.                ScIMG,
  27.                ScGEM,
  28.                ScTXT,
  29.                ScCSV);
  30. #else
  31. TYPE Scraps = (ScCSV, (* comma separated values                              *)
  32.                ScTXT, (* ASCII only text, CR/LF at the end of each line      *)
  33.                ScGEM, (* Standard GEM Metafile Graphics                      *)
  34.                ScIMG, (* Standard GEM Bitmapped Graphics Image               *)
  35.                ScDCA, (* IBM Document Contents Architecture                  *)
  36.                ScDIF, (* Data Interchange Format - Spreadsheet/Database data *)
  37.                ScASC, (* ASCII only text, CR/LF at the end of each paragraph *)
  38.                ScRTF, (* Rich Text Format defined by Microsoft               *)
  39.                Sc1WP, (* First Word Plus formatted text                      *)
  40.                ScWP,  (* Word Perfect formatted text                         *)
  41.                ScTIF, (* Tagged Interchange File Format Graphics             *)
  42.                ScIFF, (* Interchange File Format                             *)
  43.                ScEPS, (* Encapsulated Postscript File                        *)
  44.                ScCVG, (* Calamus Vector Graphic                              *)
  45.                Sc14,  (*                                                     *)
  46.                ScUSR);(* User Defined                                        *)
  47. #endif
  48.  
  49. TYPE Scrap = PACKEDSET OF Scraps;
  50. #if revers
  51. CONST NoScrap = Scrap{ScUSR..ScCSV};
  52. #else
  53. CONST NoScrap = Scrap{ScCSV..ScUSR};
  54. #endif
  55.  
  56. (* [Scr]a[p] Manager: [Read] Scrap Directory, AES(80) **********************)
  57.  
  58. PROCEDURE ScrpRead(VAR Path: ARRAY OF CHAR): Scrap;
  59.  
  60. (* [Scr]a[p] Manager: [Write] Scrap Directory, AES(81) *********************)
  61.  
  62. PROCEDURE ScrpWrite(REF Path: ARRAY OF CHAR);
  63.  
  64. (* [Scr]a[p] Manager: [Clear] Scrap Directory, AES(82) *********************)
  65.  
  66. PROCEDURE ScrpClear;
  67.  
  68. END ScrpMgr.
  69.